home *** CD-ROM | disk | FTP | other *** search
/ Internet Pratica / IPRAT_01.iso / ASP / ASPapp Portal / admin_luStates.asp < prev    next >
Encoding:
Text File  |  2002-03-12  |  11.9 KB  |  420 lines

  1. <!-- #include file="i_utils.asp" -->
  2. <%
  3.  
  4. check_security(1) 
  5.  
  6. %>
  7. <%
  8.     dim StateID
  9.     dim State
  10.     dim Code
  11.     dim Keywords
  12.     dim Note
  13.     dim RegionID
  14.     dim edit_lustates_sql
  15.     dim Region
  16.     dim view_lustates_sql
  17.  
  18. sub request_edit_lustates
  19. ''' request expected input parameters for this form
  20.     StateID = request("StateID")
  21.     State = request("State")
  22.     Code = request("Code")
  23.     Keywords = request("Keywords")
  24.     Note = request("Note")
  25.     RegionID = request("RegionID")
  26. end sub
  27. sub request_view_lustates
  28. ''' request expected input parameters for this form
  29.     StateID = request("StateID")
  30.     Code = request("Code")
  31.     State = request("State")
  32.     Region = request("Region")
  33.     RegionID = request("RegionID")
  34.     Keywords = request("Keywords")
  35.     Note = request("Note")
  36. end sub
  37.  
  38. sub validate_edit_lustates
  39. ''' request and validate data entered from this form
  40.     StateID = trim(request("StateID"))
  41.     State = trim(request("State"))
  42.     Code = trim(request("Code"))
  43.     Keywords = trim(request("Keywords"))
  44.     Note = trim(request("Note"))
  45.     RegionID = trim(request("RegionID"))
  46. end sub
  47. sub validate_view_lustates
  48. ''' request and validate data entered from this form
  49.     StateID = trim(request("StateID"))
  50.     Code = trim(request("Code"))
  51.     State = trim(request("State"))
  52.     Region = trim(request("Region"))
  53.     RegionID = trim(request("RegionID"))
  54.     Keywords = trim(request("Keywords"))
  55.     Note = trim(request("Note"))
  56. end sub
  57.  
  58.  
  59. sub db_select_edit_luStates
  60.     sql = "SELECT " & _ 
  61.     "StateID, " & _ 
  62.     "State, " & _ 
  63.     "Code, " & _ 
  64.     "Keywords, " & _ 
  65.     "Note, " & _ 
  66.     "RegionID FROM luStates" & _ 
  67.     " WHERE " & _ 
  68.     "luStates.StateID = " & to_sql(StateID,"number") & ""
  69.     on error resume next
  70.     set rs = cn.Execute(sql)
  71.     if err.number <> 0 then
  72.         b_error = true
  73.     elseif rs.EOF then
  74.         b_results = false
  75.     else
  76.         StateID = rs("StateID")
  77.         State = rs("State")
  78.         Code = rs("Code")
  79.         Keywords = rs("Keywords")
  80.         Note = rs("Note")
  81.         RegionID = rs("RegionID")
  82.     end if
  83.     rs.Close
  84.     on error goto 0
  85. end sub
  86. sub db_insert_edit_luStates
  87.     sql = "INSERT INTO luStates" & _ 
  88.     "(" & _ 
  89.     "State," & _ 
  90.     "Code," & _ 
  91.     "Keywords," & _ 
  92.     "Note," & _ 
  93.     "RegionID" & _ 
  94.     ") VALUES (" & to_sql(State,"text") & "," & _ 
  95.     "" & to_sql(Code,"text") & "," & _ 
  96.     "" & to_sql(Keywords,"text") & "," & _ 
  97.     "" & to_sql(Note,"text") & "," & _ 
  98.     "" & to_sql(RegionID,"number") & ")" & _ 
  99.     ""
  100.     'response.write sql
  101.     on error resume next
  102.     cn.Execute(sql)
  103.     if err.Number <> 0 then
  104.         b_error = true
  105.     else
  106.         set rs = cn.Execute("SELECT @@IDENTITY")
  107.         StateID = rs(0)
  108.         rs.Close
  109.     end if
  110.     on error goto 0
  111. end sub
  112. sub db_update_edit_luStates
  113.     sql = "UPDATE luStates SET " & _ 
  114.     "State = " & to_sql(State,"text") & ", " & _ 
  115.     "Code = " & to_sql(Code,"text") & ", " & _ 
  116.     "Keywords = " & to_sql(Keywords,"text") & ", " & _ 
  117.     "Note = " & to_sql(Note,"text") & ", " & _ 
  118.     "RegionID = " & to_sql(RegionID,"number") & " WHERE " & _ 
  119.     "StateID = " & to_sql(StateID,"number") & ""
  120.     'response.write sql
  121.     on error resume next
  122.     cn.execute(sql)
  123.     if err.number <> 0 then
  124.         b_error = true
  125.     end if
  126.     on error goto 0
  127. end sub
  128. sub db_delete_edit_luStates
  129.     sql = "DELETE FROM luStates" & _ 
  130.     " WHERE " & _ 
  131.     "StateID = " & to_sql(StateID,"number") & ""
  132.     'response.write sql
  133.     on error resume next
  134.     cn.Execute(sql)
  135.     if err.number <> 0 then
  136.         b_error = true
  137.     end if
  138.     on error goto 0
  139. end sub
  140. sub db_select_view_luStates
  141.     view_luStates_sql = "SELECT " & _ 
  142.     "Code, " & _ 
  143.     "Keywords, " & _ 
  144.     "Note, " & _ 
  145.     "Region, " & _ 
  146.     "luStates.RegionID, " & _ 
  147.     "State, " & _ 
  148.     "StateID FROM (luRegions RIGHT JOIN luStates ON luRegions.RegionID=luStates.RegionID) "
  149.     if request("sortby") <> "" AND inStr(lcase(view_luStates_sql),"order by") = 0 then view_luStates_sql = view_luStates_sql + " ORDER BY " & request("sortby")
  150. end sub
  151. sub db_delete_view_luStates
  152.     sql = "DELETE FROM " & _ 
  153.     ""
  154.     'response.write sql
  155.     on error resume next
  156.     cn.Execute(sql)
  157.     if err.number <> 0 then
  158.         b_error = true
  159.     end if
  160.     on error goto 0
  161. end sub
  162.  
  163. do_search = request("do_search")
  164. ''' request form keys
  165. StateID = request("StateID")
  166. ''' request action
  167. action = lcase(request("action"))
  168. ''' action case handler
  169. select case action
  170.  
  171. case "select_edit_lustates"
  172. '  select the requested key record from database
  173. if StateID <> "" then
  174.     db_select_edit_luStates
  175. else
  176.     b_error = true
  177.     error_list.add "edit_edit_luStates", "Specify record to select."
  178. end if
  179.  
  180.  
  181. case "insert_edit_lustates"
  182. '  request form data and insert a new record into database
  183.  
  184. validate_edit_lustates
  185. if not b_error then
  186.     db_insert_edit_lustates
  187. end if
  188.  
  189.  
  190.  
  191. case "update_edit_lustates"
  192. '  request form data and update an existing database record
  193. validate_edit_lustates
  194. if not b_error then
  195. if StateID <> "" then
  196.     db_update_edit_lustates
  197. else
  198.     b_error = true
  199.     error_list.add "update_edit_lustates", "Specify record to update."
  200. end if
  201. end if
  202.  
  203.  
  204. case "delete_edit_lustates"
  205. '  delete the requested key database record
  206. if StateID <> "" then
  207.     db_delete_edit_lustates
  208.     response.redirect request.servervariables("script_name") & "?msg=The+record+was+deleted."
  209. else
  210.     b_error = true
  211.     error_list.add "delete_edit_lustates", "Specify record to delete."
  212. end if
  213.  
  214.  
  215. end select
  216.  
  217. '  no action was specified, so handle the default case(s)
  218. if StateID <> "" then
  219.     db_select_edit_lustates
  220. end if
  221.  
  222. db_select_view_lustates
  223.  
  224. %>
  225.  
  226. This is the admistation area for the 'luStates' lookup table. This table is useful in 2 ways:
  227. <ol>
  228. <li>to create 'State' drop-down lists for various form (ie; user regsitration)
  229. <li>to manage and orgranize information (links,conent,classifieds) by state.
  230. </ol>
  231. <%
  232. display_errs
  233. display_msg
  234. %>
  235.  
  236. <table class='headerTable'>
  237. <tr>
  238. <td class='headerTD'>
  239. States Lookup
  240. </td>
  241. </tr>
  242. </table>
  243. <table  >
  244. <form name="edit_luStates" action="admin_luStates.asp" method="GET" >
  245. <tr>
  246.     <td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=State" class=fieldFont title="">State</a></td>
  247.     <td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=Code" class=fieldFont title="">Code</a></td>
  248.     <td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=Keywords" class=fieldFont title="">Keywords</a></td>
  249.     <td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=Note" class=fieldFont title="">Note</a></td>
  250.     <td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=RegionID" class=fieldFont title="">RegionID</a></td>
  251. </tr>
  252.         
  253.         <input type=hidden name="StateID" value="<% =StateID %>">
  254.         
  255. <tr>
  256.     <td class='dataTD' >
  257.         <input type=text  name="State" size="" maxlength="20" value="<% =State%>">
  258.     </td>
  259.     <td class='dataTD' >
  260.         <input type=text  name="Code" size="" maxlength="30" value="<% =Code%>">
  261.     </td>
  262.     <td class='dataTD' >
  263.         <input type=text  name="Keywords" size="" maxlength="255" value="<% =Keywords%>">
  264.     </td>
  265.     <td class='dataTD' >
  266.         
  267.         <textarea  name="Note" rows='6' cols='50'><% =Note%></textarea>
  268.         
  269.     </td>
  270.     <td class='dataTD' >
  271.         
  272.         <select name="RegionID" >
  273.         <option></option>
  274.         <%
  275.          =get_options ("SELECT RegionId, Region FROM luRegions", RegionID) 
  276.         %>
  277.         </select>
  278.         
  279.     </td>
  280. </tr>
  281. <tr>
  282.     <td align=right class=dataTD colspan=6>
  283.     <% if StateID = "" then %><input type=submit name=insert_button value=insert> <% end if %>
  284.     <% if StateID <> "" then %><input type=submit name=delete_button value=delete onclick="document.edit_luStates.action.value = 'delete_edit_luStates'"> <% end if %>
  285.     <% if StateID <> "" then %><input type=submit name=update_button value=update><% end if %>
  286.     </td>
  287. <input type=hidden name="action" value="<% if StateID <> "" then %>update<% else %>insert<%end if %>_edit_luStates"></tr>
  288.  
  289. </form>
  290. </table>
  291.  
  292.  
  293. <%
  294.  
  295. page_no = request("page_no")
  296. if page_no = "" then page_no = 1
  297.  
  298. if view_luStates_sql <> "" then
  299.     cmd.CommandText = view_luStates_sql
  300.     rs.Filter = ""
  301.     rs.CursorLocation = 3
  302.     rs.CacheSize = 5
  303.     rs.Open cmd
  304.     if not rs.EOF then
  305.             rs.MoveFirst
  306.             rs.PageSize = 50
  307.             max_count = cInt(rs.PageCount)
  308.             num_recs = rs.RecordCount
  309.             rs.AbsolutePage = page_no
  310.             results = true
  311.     else
  312.         results = false
  313.         rs.Close
  314.     end if
  315. else
  316.     results = false
  317. end if
  318. rec_count = 0
  319.  
  320. %>
  321.  
  322. <table class='headerTable'>
  323. <tr>
  324. <td class='headerTD'>
  325. luStates
  326. </td>
  327. </tr>
  328. </table>
  329. <%
  330.  
  331. if results = true then
  332.  
  333. %>
  334.  
  335. <table  >
  336. <form name="view_luStates" action="admin_luStates.asp" method="GET" >
  337. <tr>
  338.     <td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=StateID" class=fieldFont title="">StateId</a></td>
  339.     <td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=Code" class=fieldFont title="">Code</a></td>
  340.     <td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=State" class=fieldFont title="">State</a></td>
  341.     <td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=Region" class=fieldFont title="">Region</a></td>
  342.     <td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=Keywords" class=fieldFont title="">Keywords</a></td>
  343.     <td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=Note" class=fieldFont title="">Note</a></td>
  344. </tr>
  345. <%
  346.  
  347. do while not rs.EOF AND (rec_count < rs.Pagesize)
  348.  
  349. ':: read db record
  350. on error resume next
  351. StateID = rs("StateID")
  352. Code = rs("Code")
  353. State = rs("State")
  354. Region = rs("Region")
  355. RegionID = rs("RegionID")
  356. Keywords = rs("Keywords")
  357. Note = rs("Note")
  358. on error goto 0
  359.  
  360. %>
  361. <tr>
  362.     <td class='dataTD' >
  363.         <a href="admin_luStates.asp?StateID=<%=StateID%>&Page_No=<% =page_no %>"><% =StateID %></a> [edit]
  364.     </td>
  365.     <td class='dataTD' >
  366.         <input type=text  name="Code" size="" maxlength="30" value="<% =Code%>">
  367.     </td>
  368.     <td class='dataTD' >
  369.         <input type=text  name="State" size="" maxlength="20" value="<% =State%>">
  370.     </td>
  371.     <td class='dataTD' >
  372.         <a href="admin_luRegions.asp?RegionId=<% =RegionId %>"><% =Region %></a>
  373.     </td>
  374.         
  375.         <input type=hidden name="RegionID" value="<% =RegionID %>">
  376.         
  377.     <td class='dataTD' >
  378.         <input type=text  name="Keywords" size="" maxlength="255" value="<% =Keywords%>">
  379.     </td>
  380.     <td class='dataTD' >
  381.         
  382.         <textarea  name="Note" rows='6' cols='50'><% =Note%></textarea>
  383.         
  384.     </td>
  385. </tr>
  386. <%
  387.  
  388. rs.MoveNext
  389. rec_count = rec_count + 1
  390. loop
  391. rs.Close
  392.  
  393. %>
  394.  
  395. </form>
  396. </table>
  397. <%
  398.  
  399. else
  400.  
  401. %>
  402.  
  403.     
  404.  
  405. <%
  406.  
  407. end if
  408.  
  409. %>
  410.  
  411. <%
  412.  if max_count > 1 then 
  413. %>
  414.  
  415. <!-- paging footer -->
  416. <TABLE class=HeaderTable >
  417.     <tr>
  418.         <td width="20%" class=HeaderTD>
  419.             <% if page_no > 1 then %>
  420.             <a class=HeaderFont href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no-1 %>&sortby=<% =request("sortby") %>">PREV</a>
  421.             <% else %>            <% end if %>        </td>
  422.         <td align=center class=HeaderTD>
  423.             Page 
  424.             <% for i = 1 to max_count %>
  425.             <% if i = cint(page_no) then %>
  426.             <b><%=i%></b>
  427.             <% else %>
  428.             <a class=HeaderFont href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =i %>&sortby=<% =request("sortby") %>"><%=i%></a>
  429.             <% end if %>
  430.             <%next %>
  431.         </td>
  432.         <td align=right width="20%" class=HeaderTD>
  433.             <% if cInt(page_no) < cInt(max_count) then %>
  434.             <a class=HeaderFont href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no+1 %>&sortby=<% =request("sortby") %>">NEXT</a>
  435.             <% end if %>
  436.         </td>
  437.     </tr>
  438. </TABLE>
  439. <% end if %>
  440.  
  441.  
  442.  
  443.  
  444.  
  445. <%
  446. ':: assure that any db resources are freed
  447. on error resume next
  448. rs.Close
  449. set rs = NOTHING
  450. cn.Close
  451. set cn = NOTHING
  452. user_cn.Close
  453. set user_cn = NOTHING
  454. on error goto 0
  455. %>
  456.